(define (string->sexpr str) (let* ((port (open-input-string str)) (res (read port))) (close-port port) res))